home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er Special 25
/
64er_Magazin_Sonderheft_25_19xx_Markt__Technik_de.d64
/
dir komplett
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
938b
|
46 lines
10 rem *******************************
20 rem *** auflistung aller ****
30 rem *** eintraege im directory ****
40 rem *******************************
50 :
60 :
70 zd=1
80 forl=1to16:va$=va$+chr$(160):next
90 print"[147]--- koplettes directory ---"
100 print"(alle nummerierungen basieren auf null)
110 [153]"ausgabe auf bwaitildschirm"
120 [153]" oder dwaitrucker ";
130 [133]au$
140 [139]au$[178]"b"[167]au[178]3:[137]170
150 [139]au$[178]"d"[167]au[178]4:[137]170
160 [137]110
170 [153]"diskette einlegen und taste..."
180 [161]g$:[139]g$[178]""[167]180
190 tr[178]18:se[178]1
200 [159]15,8,15:[159]2,8,2,"#"
210 [152]15,"u1";2;0;tr;se
220 [132]15,a,b$,c,d
230 [139]a[177]0[167][153]"achtung!!":[153]b$:[137]170
240 [139]au[178]3[167][153]"load"
250 [159]3,au
255 [152]3,"track"tr" / sektor"se
260 [129]l[178]0[164]7
270 [152]15,"b-p";2;l[172]32[170]5
280 da$[178]""
290 [129]m[178]1[164]16
300 [161]#2,a$
310 da$[178]da$[170]a$
320 [139]da$[178]va$[167]500
330 [130]
340 [152]3,zd": "da$
350 zd[178]zd[170]1
360 [130]
370 [152]15,"b-p";2;0
380 [161]#2,nt$:[161]#2,ns$
390 nt[178][198](nt$[170][199](0)):ns[178][198](ns$[170][199](0))
400 [139]ns[177]20[167]500
410 tr[178]nt:se[178]ns
420 [152]15,"u1";2;0;tr;se
430 [137]255
500 [160]15:[160]2:[160]3